SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TMDOCU_PROV_I03]            
/*---------------------------------------------------------*/            
/*---Empresa              : OFISIS S.A.                  --*/            
/*---Cliente              : CASSINELLI S.A.              --*/            
/*---Sistema              : Tesoreria                    --*/            
/*---M½dulo               : Empresa                      --*/            
/*---Programa             : Inserci¢n tmdocu_prov  --*/            
/*---Script               : ttproc_i.sql                 --*/            
/*---Nombre SP            : SP_TTPROC_INTE_I03           --*/            
/*---Desarrollado por     : Javier Flores A.             --*/            
/*---Fecha Creaci½n       : 02/08/1999                   --*/            
/*---Base Datos           : Microsoft Sql Server         --*/            
/*---Versi½n              : 7.0                          --*/            
/*---Invoca a SP          :                              --*/            
/*---------------------------------------------------------*/            
            
/*---------------------------------------------------------*/            
/*---Modificado 1 por     : Manuel De La Cruz            --*/            
/*---Fecha Modificaci½n   : 07/12/2009                   --*/             
/*---Detalle Modificaci½n : Agrege 2 columnas:   --*/       
/*       CO_DEPE_ADUA, NU_ANNO_ADUA   --*/            
/*---------------------------------------------------------*/            
 /*---------------------------------------------------------*/            
/*---Modificado 2 por     : Carlos Timaná                 --*/            
/*---Fecha Modificaci½n   : 29/12/2010                    --*/             
/*---Detalle Modificaci½n : Se agregó columna            --*/       
/*       PO_DETR, para guardar porcentaje de detracción   --*/            
/*---------------------------------------------------------*/             
/*---------------------------------------------------------*/            
/*---Comentarios                                         --*/            
/*---                                                    --*/            
/*---                                                    --*/            
/*---------------------------------------------------------*/            
            
/*---------------------------------------------------------*/            
/*---Drop Proc SP_TMDOCU_PROV_I03                        --*/            
/*---Grant all on SP_TMDOCU_PROV_I03 to public           --*/             
/*---SP_TMDOCU_PROV_I03 '02', '10062587551', 'N', '001', '058', '03/15/2007'      --*/            
/*---------------------------------------------------------*/            
@ISCO_EMPR          TD_VC_002,         
@ISCO_USUA_MODI     TD_VC_008,            
@ISCO_PROV          TD_VC_020,            
@ISST_ASTO_RESU     TD_VC_001,            
@ISCO_UNID_CNTB     TD_VC_003,            
@ISCO_TIPO_OPER     TD_VC_003,             
@IDFE_REGI_COMP     TD_DT_001            
AS      
DECLARE @VSTI_PROV      TD_VC_003,            
        @VSST_INTE_BACH TD_VC_001,            
        @VSNU_ASTO TD_VC_010            
            
BEGIN TRAN SP_TMDOCU_PROV_I03            
            
  Select @VSST_INTE_BACH = ST_INTE_BACH            
  From TMPARA_TESO Where CO_EMPR = @ISCO_EMPR            
            
            
  SELECT @VSTI_PROV = T1.TI_CLIE            
  FROM TMAUXI_EMPR T1, TMPARA_TESO T2            
  WHERE T1.CO_EMPR = @ISCO_EMPR            
  AND T1.CO_EMPR = T2.CO_EMPR            
  AND T1.TI_AUXI_EMPR = T2.CO_TIAU_PROV            
  AND T1.CO_AUXI_EMPR = @ISCO_PROV            
            
  /*Busco el ultimo correlativo usado para insertar el nro de comprobante*/             
  If @VSST_INTE_BACH = 'N' AND @ISST_ASTO_RESU = 'N'     -- SI ES INTERFASE EN LINEA Y ES DETALLADA            
 Exec SP_TTULTI_ASTO_Q01 @ISCO_EMPR, @ISCO_USUA_MODI, @ISCO_UNID_CNTB, @ISCO_TIPO_OPER, @IDFE_REGI_COMP,                   
    @VSNU_ASTO OUTPUT                  
        
            
  Insert into TMDOCU_PROV(            
 CO_EMPR, CO_PROV, CO_TIPO_DOCU, NU_DOCU_PROV,            
 CO_MONE, CO_TIPO_OPER, CO_COND_PAGO, FE_EMIS,  CO_UNID_CONC,            
 FE_VENC, FA_TIPO_CAMB, IM_BRUT_AFEC,            
 IM_BRUT_INAF, IM_GAFI,  IM_MORA, IM_FLET,ST_AFEC_GAFI,            
 ST_AFEC_MORA, ST_AFEC_FLET, ST_DCT1_BRAF, ST_DCT1_BRIN,            
 ST_DCT1_GAFI, ST_DCT1_MORA, ST_DCT1_FLET, ST_DCT2_BRAF,            
 ST_DCT2_BRIN, ST_DCT2_GAFI, ST_DCT2_MORA, ST_DCT2_FLET,            
 PC_DCT1, IM_DCT1, PC_DCT2, IM_DCT2,            
 CO_IMP1, PC_IMP1, IM_IMP1, CO_IMP2, PC_IMP2,            
 IM_IMP2, CO_IMP3, PC_IMP3, IM_IMP3, PC_SCRF,            
 IM_SCRF, IM_SCF1, IM_SCF2, IM_SCF3,  IM_TOTA,            
 IM_PAGA, TI_DOCU_ORIG, NU_DOCU_ORIG, FE_DOCU_ORIG,            
 ST_CONT, DE_OBSE, NU_REND_GAST, FE_PROG_PAGO,            
 CO_ESTA_DOCU,  FE_REGI_COMP, ST_ORIG_COSE, NU_COMP_SERV, CO_MODE_DIST,            
 ST_REND_COMP, NU_SREN_GAST, TI_PROV, FE_REND_GAST, NU_ASTO, NU_IMPO,             
 FA_CAMB_EXTR, FE_RECE, ST_SUJE_DETR, CO_ACTI_DETR, CO_TIOP_DETR, IM_VALO_REFE,   
 ST_GRAV_NGRA, CO_DEST, NU_DEST, CO_DEPE_ADUA, NU_ANNO_ADUA, CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI,PO_DETR)      
       
  SELECT @ISCO_EMPR,  CO_PROV, CO_TIPO_DOCU, NU_DOCU_AUXI, CO_MONE,            
  CO_TIPO_OPER, CO_COND_PAGO,  FE_EMIS,  CO_UNID_CNTB, FE_VENC,            
  FA_TIPO_CAMB, IM_BRUT_AFEC, IM_BRUT_INAF, IM_GAFI, IM_MORA, IM_FLET,            
  ST_AFEC_GAFI, ST_AFEC_MORA, ST_AFEC_FLET, ST_DCT1_BRAF, ST_DCT1_BRIN,            
  ST_DCT1_GAFI, ST_DCT1_MORA, ST_DCT1_FLET, ST_DCT2_BRAF,            
  ST_DCT2_BRIN, ST_DCT2_GAFI, ST_DCT2_MORA,  ST_DCT2_FLET, PC_DCT1,            
  IM_DCT1, PC_DCT2,  IM_DCT2,  CO_IMP1, PC_IMP1, IM_IMP1,            
  CO_IMP2, PC_IMP2, IM_IMP2 , CO_IMP3, PC_IMP3 , IM_IMP3,            
  PC_SCRF, IM_SCRF, IM_SCF1, IM_SCF2, IM_SCF3,             
  IM_TOTA, IM_PAGA_REND, CO_TIDO_ORIG, NU_DOCU_ORIG, FE_DOCU_ORIG, 'N' , DE_OBSE,            
  NU_REND_GAST, FE_PROG_PAGO,            
  CO_ESTA_REND, FE_REGI_COMP, '  ', NU_COMP_SERV, CO_MODE_DIST,            
  ST_REND_COMP, NU_SREN_GAST, @VSTI_PROV, FE_REND_GAST, @VSNU_ASTO, NU_IMPO,             
  FA_CAMB_EXTR, FE_RECE, ST_SUJE_DETR, CO_ACTI_DETR, CO_TIOP_DETR, IM_VALO_REFE,   
  ST_GRAV_NGRA, '2', '1', CO_DEPE_ADUA, NU_ANNO_ADUA, @ISCO_USUA_MODI, GETDATE() ,@ISCO_USUA_MODI, GETDATE(), PO_DETR    
  FROM #TWDOCU_PROV_Q01            
            
  IF (@@ERROR != 0)            
    BEGIN            
      RAISERROR 20001 'ERROR DE INSERCION'            
      ROLLBACK TRAN            
      RETURN            
    END            
            
            
COMMIT TRAN SP_TMDOCU_PROV_I03            
            
/*--------------------------- Fin -------------------------------- */    
GO
